﻿Namespace Data

    Public Class DataCallAttribute
        Inherits System.DataExecutorServices.SqlDataCallAttribute

        Public Shared ReadOnly DemoDatabase As String = "AspectDemo"
        Public Shared ReadOnly DemoConnectionString As String = My.Settings.ConnectionString

        Public Sub New(ByVal iRegName As String, ByVal iUIName As String)
            MyBase.New(iUIName, iRegName, DemoDatabase, DemoConnectionString)
        End Sub

    End Class

End Namespace